1 REM *** SPELLING DRILL            ***
2 REM *** AN ORIGINAL PROGRAM BY    ***
3 REM *** DONNA K. WOODY            ***
10 POKE53272,23:PRINTCHR$(8)
15 DIMW$(25),S1$(25),S2$(25),S3$(25),AN$(25),D(25):S=65520
20 POKE53280,5:POKE53281,1:PRINTCHR$(31)
25 POKE783,PEEK(783)AND254:PRINTCHR$(14):PRINTCHR$(8)
30 GOTO180
40 POKE783,PEEK(783)AND254:POKE781,6:POKE782,0:SYSS
50 FORX=1TO640:PRINT" ";:NEXT:RETURN
177 :
178 REM *** TITLE PAGE              ***
179 :
180 PRINTCHR$(147)
185 POKE783,PEEK(783)AND254
190 POKE781,5:POKE782,13:SYSS:PRINT"[211][208][197][204][204][201][206][199] [196][210][201][204][204]"
200 POKE781,8:POKE782,19:SYSS:PRINT"BY"
205 POKE781,11:POKE782,13:SYSS:PRINT"[196]ONNA [203]. [215]OODY"
210 POKE781,23:POKE782,3:SYSS:PRINT"[215]OULD YOU LIKE INSTRUCTIONS (Y/N)?[160]";:
220 POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"ANDA$<>"N"ANDA$<>"[217]"ANDA$<>"[206]"THEN220
230 IFA$="Y"ORA$="[217]"THENGOSUB5000:REM * INSTRUCTIONS *
240 PRINTCHR$(147)
242 GOSUB11000:REM * CHOOSE FILE *
244 GOSUB10000:IFCZ=62THEN242
245 POKE781,10:POKE782,0:SYSS:PRINT"[208]LEASE WAIT......."
247 PRINT:PRINT"[204]OADING FILE......."
248 OPEN15,8,15
250 OPEN4,8,4,"0:"+FI$+",SEQ,READ"
270 INPUT#4,NU
280 FORI=1TONU
290 INPUT#4,W$(I),S1$(I),S2$(I),S3$(I),AN$(I)
300 NEXTI
302 CLOSE4:CLOSE15
303 GOSUB11100
304 GOSUB11200
306 IFFLAG=1THENFLAG=0:GOTO11300
311 R=O:I=0
312 FORI=1TONU
314 PRINTCHR$(147):PRINTTAB(12)"[211][208][197][204][204][201][206][199][160][196][210][201][204][204]"
315 PRINTCHR$(19):POKE781,2:POKE782,28:SYSS:PRINTR"/"I-1
320 FORZ=1TO40:PRINT"=";:NEXT
332 POKE781,4:POKE782,13:SYSS:PRINT"DEFINITION #"I:PRINT
334 PRINTW$(D(I)):PRINT
340 PRINT" [193]. "S1$(D(I)):PRINT
350 PRINT" [194].[160]"S2$(D(I)):PRINT
360 PRINT" [195]. "S3$(D(I)):PRINT
370 POKE781,15:POKE782,0:SYSS:PRINT" -->[160]";
380 POKE198,0:WAIT198,1:GETA$
385 IFA$<>"A"ANDA$<>"B"ANDA$<>"C"ANDA$<>"[193]"ANDA$<>"[194]"ANDA$<>"[195]"THEN370
386 PRINTA$
387 IFA$="[193]"THENA$="A"
388 IFA$="[194]"THENA$="B"
389 IFA$="[195]"THENA$="C"
430 PRINTCHR$(144)
432 IFA$=AN$(D(I))THENWR$="[210][201][199][200][212]!!!"
434 IFA$<>AN$(D(I))THENWR$="[215][210][207][206][199]!"
436 POKE781,18:POKE782,10:SYSS:PRINT"          [157][157][157][157][157][157][157][157][157][157]"WR$
440 IFA$=AN$(D(I))THEN485
480 POKE781,20:POKE782,0:SYSS:PRINT"[195]ORRECT ANSWER IS "AN$(D(I))
485 IFA$=AN$(D(I))THENR=R+1
490 IFA$<>AN$(D(I))THENPRINT""
492 PRINTCHR$(31)
500 POKE781,23:POKE782,1:SYSS:PRINT"[208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE.";:
510 POKE198,0:WAIT198,1:GETA$:IFA$<>" "THEN510
520 POKE781,18:POKE782,10:SYSS:PRINT"            "
530 NEXTI
600 PRINTCHR$(147):PRINTTAB(13)"[211][208][197][204][204][201][206][199][160][196][210][201][204][204]"
605 PC=INT((R/NU)*100)
610 IFPC>=90THENPRINTCHR$(144)
620 POKE781,3:POKE782,0:SYSS:PRINT"90% - 100% -- [197]XCELLENT! ":PRINTCHR$(31)
630 IFPC>=70ANDPC<90THENPRINTCHR$(144)
640 POKE781,5:POKE782,0:SYSS:PRINT"70% - 80% -- [214]ERY GOOD!":PRINTCHR$(31)
650 IFPC>=60ANDPC<70THENPRINTCHR$(144)
660 POKE781,7:POKE782,0:SYSS:PRINT"60% - 70% -- [198]AIR":PRINTCHR$(31)
680 IFPC>=50ANDPC<60THENPRINTCHR$(144)
690 POKE781,9:POKE782,0:SYSS:PRINT"50% - 60% -- [206]OT TOO GOOD"
700 PRINTCHR$(31)
710 IFPC<50THENPRINTCHR$(144)
720 POKE781,11:POKE782,0:SYSS:PRINT" 0% - 50% -- [215]E KNOW YOU DIDN'T CHEAT"
730 PRINTCHR$(31)
810 POKE781,20:POKE782,0:SYSS:PRINT"[208]RESS <[210]> TO REPEAT THE TEST."
820 PRINT"[208]RESS <[204]> TO GO BACK TO [204][207][193][196][211][212][193][210].":PRINT"[208]RESS <[193]> FOR ANOTHER TEST."
830 POKE198,0:WAIT198,1:GETA$:IFA$<>"R"ANDA$<>"L"ANDA$<>"A"THEN830
835 IFA$<>"R"ANDA$<>"L"ANDA$<>"A"ANDA$<>"[210]"ANDA$<>"[204]"ANDA$<>"[193]"THEN810
840 IFA$="R"ORA$="[210]"THENPRINTCHR$(147):GOTO311
845 IFA$="A"ORA$="[193]"THENPRINTCHR$(147):GOTO240
850 IFA$="L"ORA$="[204]"THENPRINTCHR$(147):GOTO63000
4999 :
5000 REM *** INSTRUCTIONS          ***
5001 :
5010 FORI=1TO2
5015 PRINTCHR$(147)
5020 FORJ=1TO10
5030 READA$:PRINTA$:PRINT
5040 NEXTJ
5050 POKE781,23:POKE782,6:SYSS:PRINT"PRESS SPACE BAR TO CONTINUE";
5060 POKE198,0:WAIT198,1:GETA$:IFA$<>" "THEN5060
5070 NEXTI
5080 RETURN
6000 DATA"  [215]ELCOME TO [211][208][197][204][204][201][206][199][160][196][210][201][204][204]!  [206]OT ONLY"
6005 DATA"WILL YOU LEARN HOW TO SPELL, BUT YOU'LL"
6007 DATA"ALSO INCREASE YOUR VOCABULARY!"
6010 DATA"  [200]ERE ARE SOME OF THE WORDS THAT SEEM"
6012 DATA"TO GIVE EVERYONE A LOT OF TROUBLE.  [215]E"
6015 DATA"ARE ALSO GOING TO INCLUDE SOME WORDS"
6020 DATA"YOU MAY NOT HAVE HEARD OF BEFORE, JUST"
6022 DATA"TO KEEP THINGS INTERESTING!"
6025 DATA"  [217]OU WILL BE GIVEN A DEFINITION OF A"
6030 DATA"WORD AND THREE POSSIBLE SPELLINGS."
6031 DATA"CHOOSE THE SPELLING YOU THINK (OR KNOW)"
6032 DATA"IS RIGHT.  [193]NSWERS ARE ENTERED WITH A"
6033 DATA"SINGLE KEYSTROKE.  [217]OU DO NOT NEED TO"
6034 DATA"PRESS THE <[210][197][212][213][210][206]> KEY."
6046 DATA"  [217]OUR SCORE IS SHOWN IN THE UPPER"
6047 DATA"RIGHT-HAND CORNER.  [193]FTER THE TEST IS"
6048 DATA"OVER, YOU WILL BE GIVEN A SCORE BASED"
6049 DATA"ON THE NUMBER OF QUESTIONS YOU ANSWERED"
6050 DATA"CORRECTLY."
6052 DATA"         [200]AVE FUN AND GOOD LUCK!"
9997 :
9998 REM *** CHECK FOR FILE          ***
9999 :
10000 OPEN15,8,15
10005 OPEN4,8,4,"0:"+FI$+",SEQ,READ":CLOSE4
10010 PRINT#15,CZ,MZ$,SZ,TZ:CLOSE15
10020 IFCZ=0THENRETURN
10030 IFCZ=62THENPRINTCHR$(147):PRINT"[212]HAT FILE DOES NOT EXIST ON THIS DISK."
10040 PRINT:PRINT:PRINT"[196]O YOU WANT TO CONTINUE (Y/N)?[160]";:POKE198,0:WAIT198,1:GE
10050 IFA$="Y"ORA$="[217]"THENPRINTCHR$(147):RETURN
10060 IFA$="N"ORA$="N"THENPRINTCHR$(147):END
10070 PRINT"[145][145][145][145]":GOTO10040
10997 :
10998 REM *** CHOOSE FILE           ***
10999 :
11000 PRINTCHR$(147):PRINT:PRINTTAB(13)"[211][208][197][204][204][201][206][199][160][196][210][201][204][204]":PRINT:PRINT:PRINT
11002 PC=0:R=0
11005 PRINT:PRINT"     0.  [197]XIT PROGRAM"
11010 PRINT:PRINT"     1.  [211]PELLING [215]ORDS #1"
11020 PRINT:PRINT"     2.  [211]PELLING [215]ORDS #2"
11040 PRINT:PRINT:PRINT" [197]NTER SELECTION (0 - 2) ";:POKE198,0:WAIT198,1:GETA$
11050 IFA$="0"THEN 63000
11060 IFA$="1"THEN FI$="WORDS.1":PRINTCHR$(147):GOTO11095
11070 IFA$="2"THEN FI$="WORDS.2":PRINTCHR$(147):GOTO11095
11090 POKE781,12:POKE782,0:SYSS:GOTO11040
11095 RETURN
11100 FORX=1TONU:D(X)=X:NEXT
11110 FORI=1TONU:D%=(RND(1)*NU)+1:DT=D(I):D(I)=D(D%):D(D%)=DT:NEXT
11120 RETURN
11197 :
11198 REM *** PRINT?               ***
11199 :
11200 PRINTCHR$(147)
11210 POKE781,5:POKE782,0:SYSS
11215 PRINT"[196]O YOU WANT [211][208][197][204][204][201][206][199] [196][210][201][204][204] PRINTED OUT  (Y/N)?[160]";:
11220 POKE198,0:WAIT198,1:GETA$
11230 IFA$="[217]"ORA$="Y"THENFLAG=1:GOTO11260
11240 IFA$="[206]"ORA$="N"THENFLAG=0:GOTO11260
11250 POKE781,22:POKE782,1:SYSS:PRINT"[208]LEASE ANSWER 'Y' OR 'N'.":GOTO11210
11260 RETURN
11297 :
11298 REM *** PRINT DRILL          ***
11299 :
11300 PRINTCHR$(147)
11310 PRINT"[205]AKE SURE YOUR PRINTER IS CORRECTLY     HOOKED UP TO YOUR COMPUTER."
11320 PRINT:PRINT
11330 PRINT"[204]INE UP THE PAPER AT THE TOP OF THE     PAGE."
11340 PRINT:PRINT
11350 PRINT"[212]URN ON YOUR PRINTER."
11360 PRINT:PRINT
11370 PRINT"[208]RESS <F1> FUNCTION KEY WHEN YOU ARE    READY TO PRINT."
11380 POKE198,0:WAIT198,1:GETA$
11390 IFASC(A$)<>133THEN11380
11400 OPEN4,4,7:CMD4
11410 PRINT"[211][208][197][204][204][201][206][199][160][196][210][201][204][204]"
11420 PRINT:PRINT"[206][193][205][197]:                                   [196][193][212][197]:":PRINT:PRINT
11425 C1=6:P=2
11430 FORI=1TONU
11435 PRINT"[209]UESTION #"I
11440 PRINTW$(D(I))
11450 PRINT" [193]. "S1$(D(I))
11460 PRINT" [194].[160]"S2$(D(I))
11470 PRINT" [195]. "S3$(D(I))
11480 PRINT"[193]NSWER IS -->[160]"
11485 C1=C1+7:IFC1>=62THENC1=3:PRINT:PRINT:PRINT:PRINT:PRINT"[208]AGE "P:P=P+1
11490 PRINT:NEXT
11495 PRINT#4
11500 CLOSE4
11505 PRINTCHR$(147)
11510 PRINT"[204]INE UP THE PAPER AT THE TOP OF THE     PAGE FOR THE ANSWERS."
11520 PRINT:PRINT
11530 PRINT"[212]URN ON YOUR PRINTER."
11540 PRINT:PRINT
11550 PRINT"[208]RESS <F1> FUNCTION KEY WHEN YOU ARE    READY TO PRINT."
11560 POKE198,0:WAIT198,1:GETA$
11570 IFASC(A$)<>133THEN11560
11575 OPEN4,4,7:CMD4
11580 PRINT"[211][208][197][204][204][201][206][199] [196][210][201][204][204] [193][206][211][215][197][210][211]":PRINT:PRINT
11590 FORI=1TONU
11600 PRINT"[193]NSWER #"I":";AN$(D(I))
11610 NEXT
11620 PRINT#4:CLOSE4
11630 GOTO180
63000 REM  LINK-BACK TO LOADSTAR
63010 PRINT"[147]LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN"
63020 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END